Cream of the Crop 22

home *** CD-ROM | disk | FTP | other *** search

/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / aphvb423.zip / VB4CONST.BA_ / VB4CONST.BA

Wrap

Text File | 1996-10-10 | 81KB | 1,112 lines

'VISUAL BASIC 4.0 INTRINSIC CONSTANTS 'Align Property Global Const vbAlignNone = 0 'Size and location set at design time or in code. Global Const vbAlignTop = 1 'Picture box at top of form. Global Const vbAlignBottom = 2 'Picture box at bottom of form. Global Const vbAlignLeft = 3 'Picture box at left of form. Global Const vbAlignRight = 4 'Picture box at right of form. 'Alignment Property Global Const vbLeftJustify = 0 'Left align. Global Const vbRightJustify = 1 'Right align. Global Const vbCenter = 2 'Center. 'BorderStyle Property (Form) Global Const vbBSNone = 0 'No border. Global Const vbFixedSingle = 1 'Fixed single. Global Const vbSizable = 2 'Sizable (forms only). Global Const vbFixedDouble = 3 'Fixed double (forms only). 'BorderStyle Property (Shape and Line) Global Const vbTransparent = 0 'Transparent. Global Const vbBSSolid = 1 'Solid. Global Const vbBSDash = 2 'Dash. Global Const vbBSDot = 3 'Dot. Global Const vbBSDashDot = 4 'Dash-dot. Global Const vbBSDashDotDot = 5 'Dash-dot-dot. Global Const vbBSInsideSolid = 6 'Inside solid. 'Clipboard Object Constants Global Const vbCFLink = &HBF00 'DDE conversation information. Global Const vbCFRTF = &HBF01 'Rich Text Format (.RTF file). Global Const vbCFText = 1 'Text (.TXT file). Global Const vbCFBitmap = 2 'Bitmap (.BMP file). Global Const vbCFMetafile = 3 'Metafile (.WMF file). Global Const vbCFDIB = 8 'Device-independent bitmap. Global Const vbCFPalette = 9 'Color palette. 'Colors Global Const vbBlack = &H0 'Black. Global Const vbRed = &HFF 'Red. Global Const vbGreen = &HFF00 'Green. Global Const vbYellow = &HFFFF 'Yellow. Global Const vbBlue = &HFF0000 'Blue. Global Const vbMagenta = &HFF00FF 'Magenta. Global Const vbCyan = &HFFFF00 'Cyan. Global Const vbWhite = &HFFFFFF 'White. 'System Colors Global Const vbScrollBars = &H80000000 'Scroll bar color. Global Const vbDesktop = &H80000001 'Desktop color. Global Const vbActiveTitleBar = &H80000002 'Color of the title bar for the active window. Global Const vbInactiveTitleBar = &H80000003 'Color of the title bar for the inactive window. Global Const vbMenuBar = &H80000004 'Menu background color. Global Const vbWindowBackground = &H80000005 'Window background color. Global Const vbWindowFrame = &H80000006 'Window frame color. Global Const vbMenuText = &H80000007 'Color of text on menus. Global Const vbWindowText = &H80000008 'Color of text in windows. Global Const vbTitleBarText = &H80000009 'Color of text in caption, size box, and scroll arrow. Global Const vbActiveBorder = &H8000000A 'Border color of active window. Global Const vbInactiveBorder = &H8000000B 'Border color of inactive window. Global Const vbApplicationWorkspace = &H8000000C 'Background color of multiple-document interface(MDI) applications. Global Const vbHighlight = &H8000000D 'Background color of items selected in a control. Global Const vbHighlightText = &H8000000E 'Text color of items selected in a control. Global Const vbButtonFace = &H8000000F 'Color of shading on the face of command buttons. Global Const vbButtonShadow = &H80000010 'Color of shading on the edge of command buttons. Global Const vbGrayText = &H80000011 'Grayed (disabled) text. Global Const vbButtonText = &H80000012 'Text color on push buttons. Global Const vbInactiveCaptionText = &H80000013 'Color of text in an inactive caption. Global Const vb3DHighlight = &H80000014 'Highlight color for 3D display elements. Global Const vb3DDKShadow = &H80000015 'Darkest shadow color for 3D display elements. Global Const vb3DLight = &H80000016 'Second lightest of the 3D colors after vb3DHighlight. Global Const vbInfoText = &H80000017 'Color of text in ToolTips. Global Const vbInfoBackground = &H80000018 'Background color of ToolTips. 'File Open/Save Dialog Box Flags Global Const cdlOFNReadOnly = &H1 'Checks Read-Only check box for Open and Save As dialog boxes. Global Const cdlOFNOverwritePrompt = &H2 'Causes the Save As dialog box to generate a message box if the selected file already exists. Global Const cdlOFNHideReadOnly = &H4 'Hides the Read-Only check box. Global Const cdlOFNNoChangeDir = &H8 'Sets the current directory to what it was when the dialog box was invoked. Global Const cdlOFNHelpButton = &H10 'Causes the dialog box to display the Help button. Global Const cdlOFNNoValidate = &H100 'Allows invalid characters in the returned filename. Global Const cdlOFNAllowMultiselect = &H200 'Allows the File Name list box to have multiple selections. Global Const cdlOFNExtensionDifferent = &H400 'The extension of the returned filename is different from the extension set by the DefaultExt property. Global Const cdlOFNPathMustExist = &H800 'User can enter only valid path names. Global Const cdlOFNFileMustExist = &H1000 'User can enter only names of existing files. Global Const cdlOFNCreatePrompt = &H2000 'Sets the dialog box to ask if the user wants to create a file that doesn't currently exist. Global Const cdlOFNShareAware = &H4000 'Sharing violation errors will be ignored. Global Const cdlOFNNoReadOnlyReturn = &H8000 'The returned file doesn't have the Read-Only attribute set and won't be in a write-protected directory. Global Const cdlOFNExplorer = &H8000 'Use the Explorer-like Open A File dialog box template. (Windows 95 only.) Global Const cdlOFNNoDereferenceLinks = &H100000 'Do not dereference shortcuts (shell links). By default, choosing a shortcut causes it to be dereferenced by the shell. (Windows 95 only.) Global Const cdlOFNLongNames = &H200000 'Use Long filenames. (Windows 95 only.) 'Color Dialog Box Flags Global Const cdlCCRGBInit = &H1 'Sets initial color value for the dialog box. Global Const cdlCCFullOpen = &H2 'Entire dialog box is displayed, including the Define Custom Colors section. Global Const cdlCCPreventFullOpen = &H4 'Disables the Define Custom Colors section of the dialog box. Global Const cdlCCHelpButton = &H8 'Dialog box displays a Help button. 'Fonts Dialog Box Flags Global Const cdlCFScreenFonts = &H1 'Dialog box lists only screen fonts supported by the system. Global Const cdlCFPrinterFonts = &H2 'Dialog box lists only fonts supported by the printer. Global Const cdlCFBoth = &H3 'Dialog box lists available screen and printer fonts. Global Const cdlCFHelpButton = &H4 'Dialog box displays a Help button. Global Const cdlCFEffects = &H100 'Dialog box enables strikeout, underline, and color effects. Global Const cdlCFApply = &H200 'Dialog box enables the Apply button. Global Const cdlCFANSIOnly = &H400 'Dialog box allows only a selection of fonts that use the Windows character set. Global Const cdlCFNoVectorFonts = &H800 'Dialog box should not allow vector-font selections. Global Const cdlCFNoSimulations = &H1000 'Dialog box should not allow graphic device interface (GDI) font simulations. Global Const cdlCFLimitSize = &H2000 'Dialog box should select only font sizes within the range specified by the Min and Max properties. Global Const cdlCFFixedPitchOnly = &H4000 'Dialog box should select only fixed-pitch fonts. Global Const cdlCFWYSIWYG = &H8000 'Dialog box should allow only the selection of fonts available to both the screen and printer. Global Const cdlCFForceFontExist = &H10000 ' An error dialog box is displayed if a user selects a font or style that doesn't exist. Global Const cdlCFScalableOnly = &H20000 'Dialog box should allow only the selection of scalable fonts. Global Const cdlCFTTOnly = &H40000 'Dialog box should allow only the selection of TrueType fonts. Global Const cdlCFNoFaceSel = &H80000 'No font name selected. Global Const cdlCFNoStyleSel = &H100000 'No font style selected. Global Const cdlCFNoSizeSel = &H200000 'No font size selected. 'Printer Dialog Box Flags Global Const cdlPDAllPages = &H0 'Returns or sets state of All Pages option button. Global Const cdlPDCollate = &H10 'Returns or sets state of Collate check box. Global Const cdlPDDisablePrintToFile = &H80000 'Disables the Print To File check box. Global Const cdlPDHidePrintToFile = &H100000 'The Print To File check box isn't displayed. Global Const cdlPDNoPageNums = &H8 'Returns or sets the state of the Pages option button. Global Const cdlPDNoSelection = &H4 'Disables the Selection option button. Global Const cdlPDNoWarning = &H80 'Prevents a warning message when there is no default printer. Global Const cdlPDPageNums = &H2 'Returns or sets the state of the Pages option button. Global Const cdlPDPrintSetup = &H40 'Displays the Print Setup dialog box rather than the Print dialog box. Global Const cdlPDPrintToFile = &H20 'Returns or sets the state of the Print To File check box. Global Const cdlPDReturnDC = &H100 'Returns a device context for the printer selection value returned in the hDC property of the dialog box. Global Const cdlPDReturnDefault = &H400 'Returns default printer name. Global Const cdlPDReturnIC = &H200 'Returns an information context for the printer selection value returned in the hDC property of the dialog box. Global Const cdlPDSelection = &H1 'Returns or sets the state of the Selection option button. Global Const cdlPDHelpButton = &H800 'Dialog box displays the Help button. Global Const cdlPDUseDevModeCopies = &H40000 'Sets support for multiple copies action; depends upon whether or not printer supports multiple copies. 'CommonDialog Error Constants Global Const cdlAlloc = &H7FF0& 'Couldn't allocate memory for FileName or Filter property. Global Const cdlCancel = &H7FF3& 'Cancel was selected. Global Const cdlDialogFailure = &H8000& 'The function failed to load the dialog box. Global Const cdlFindResFailure = &H7FF9& 'The function failed to load a specified resource. Global Const cdlHelp = &H7FEF& 'Call to Windows Help failed. Global Const cdlInitialization = &H7FFD& 'The function failed during initialization. Global Const cdlLoadResFailure = &H7FF8& 'The function failed to load a specified string. Global Const cdlLockResFailure = &H7FF7& 'The function failed to lock a specified resource. Global Const cdlMemAllocFailure = &H7FF6& 'The function was unable to allocate memory for internal data structures. Global Const cdlMemLockFailure = &H7FF5& 'The function was unable to lock the memory associated with a handle. Global Const cdlNoFonts = &H5FFE& 'No fonts exist. Global Const cdlBufferTooSmall = &H4FFC& 'The buffer at which the member lpstrFile points is too small. Global Const cdlInvalidFileName = &H4FFD& 'Filename is invalid. Global Const cdlSubclassFailure = &H4FFE& 'An attempt to subclass a list box failed due to insufficient memory. Global Const cdlCreateICFailure = &H6FF5& 'The PrintDlg function failed when it attempted to create an information context. Global Const cdlDndmMismatch = &H6FF6& 'Data in the DevMode and DevNames data structures describe two different printers. Global Const cdlGetDevModeFail = &H6FFA& 'The printer device driver failed to initialize a DevMode data structure. Global Const cdlInitFailure = &H6FF9& 'The PrintDlg function failed during initialization. Global Const cdlLoadDrvFailure = &H6FFB& 'The PrintDlg function failed to load the specified printer's device driver. Global Const cdlNoDefaultPrn = &H6FF7& 'A default printer doesn't exist. Global Const cdlNoDevices = &H6FF8& 'No printer device drivers were found. Global Const cdlParseFailure = &H6FFD& 'The CommonDialog function failed to parse the strings in the [devices] section of WIN.INI. Global Const cdlPrinterCodes = &H6FFF& 'The PDReturnDefault flag was set, but either the hDevMode or hDevNames field was nonzero. Global Const cdlPrinterNotFound = &H6FF4& 'The [devices] section of WIN.INI doesn't contain an entry for the requested printer. Global Const cdlRetDefFailure = &H6FFC& 'The PDReturnDefault flag was set, but either the hDevMode or hDevNames field was nonzero. Global Const cdlSetupFailure = &H6FFE& 'Failed to load required resources. 'Control Constants 'ComboBox Control Global Const vbComboDropdown = 0 'Dropdown Combo. Global Const vbComboSimple = 1 'Simple Combo. Global Const vbComboDropdownList = 2 'Dropdown List. 'ListBox Control Global Const vbMultiSelectNone = 0 'None. Global Const vbMultiSelectSimple = 1 'Simple. Global Const vbMultiSelectExtended = 2 'Extended. 'ScrollBar Control Global Const vbSBNone = 0 'None. Global Const vbHorizontal = 1 'Horizontal. Global Const vbVertical = 2 'Vertical. Global Const vbBoth = 3 'Both. 'Shape Control Global Const vbShapeRectangle = 0 'Rectangle. Global Const vbShapeSquare = 1 'Square. Global Const vbShapeOval = 2 'Oval. Global Const vbShapeCircle = 3 'Circle. Global Const vbShapeRoundedRectangle = 4 'Rounded rectangle. Global Const vbShapeRoundedSquare = 5 'Rounded square. 'Data Control Constants 'Error Event Constants Global Const vbDataErrContinue = 0 'Continue. Global Const vbDataErrDisplay = 1 '(Default) Display the error message. 'EditMode Property Constants Global Const vbDataEditNone = 0 'No editing operation in progress. Global Const vbDataEditMode = 1 'Edit method invoked; current record in copy buffer. Global Const vbDataEditAdd = 2 'AddNew method invoked; current record hasn't been saved. 'Options Property Constants Global Const vbDataDenyWrite = 1 'Other users can't change records in recordset. Global Const vbDataDenyRead = 2 'Other users can't read records in recordset. Global Const vbDataReadOnly = 4 'No user can change records in recordset. Global Const vbDataAppendOnly = 8 'New records can be added to the recordset, but existing records can't be read. Global Const vbDataInconsistent = 16 'Updates can apply to all fields of the recordset. Global Const vbDataConsistent = 32 'Updates apply only to those fields that will not affect other records in the recordset. Global Const vbDataSQLPassThrough = 64 'Sends an SQL statement to an ODBC database. 'Validate Event Action Constants Global Const vbDataActionCancel = 0 'Cancel the operation when the Sub exits. Global Const vbDataActionMoveFirst = 1 'MoveFirst method. Global Const vbDataActionMovePrevious = 2 'MovePrevious method. Global Const vbDataActionMoveNext = 3 'MoveNext method. Global Const vbDataActionMoveLast = 4 'MoveLast method. Global Const vbDataActionAddNew = 5 'AddNew method. Global Const vbDataActionUpdate = 6 'Update operation (not UpdateRecord). Global Const vbDataActionDelete = 7 'Delete method. Global Const vbDataActionFind = 8 'Find method. Global Const vbDataActionBookmark = 9 'The Bookmark property is set. Global Const vbDataActionClose = 10 'Close method. Global Const vbDataActionUnload = 11 'The form is being unloaded. 'Beginning-of-File Constants Global Const vbMoveFirst = 0 'Move to first record. Global Const vbBOF = 1 'Move to beginning of file. 'End-of-File Constants Global Const vbMoveLast = 0 'Move to last record. Global Const vbEOF = 1 'Move to end of file. Global Const vbAddNew = 2 'Add new record to end of file. 'Recordset-Type Constants Global Const vbRSTypeTable = 0 'Table-type recordset. Global Const vbRSTypeDynaset = 1 'Dynaset-type recordset. Global Const vbRSTypeSnapShot = 2 'Snapshot-type recordset. 'DBGrid Control Constants 'Alignment Constants Global Const dbgLeft = 0 'Left. Global Const dbgRight = 1 'Right. Global Const dbgCenter = 2 'Center. Global Const dbgGeneral = 3 'General. 'BorderStyle Constants Global Const dbgNone = 0 'None. Global Const dbgFixedSingle = 1 'FixedSingle. 'DataMode Constants Global Const dbgBound = 0 'Bound. Global Const dbgUnbound = 1 'Unbound. 'DividerStyle Constants Global Const dbgNoDividers = 0 'NoDividers. Global Const dbgBlackLine = 1 'BlackLine. Global Const dbgDarkGrayLine = 2 'DarkGrayLine. Global Const dbgRaised = 3 'Raised. Global Const dbgInset = 4 'Inset. Global Const dbgUseForeColor = 5 'UseForeColor. 'Scroll Bar Constants Global Const dbgHorizontal = 1 'Horizontal. Global Const dbgVertical = 2 'Vertical. Global Const dbgBoth = 3 'Both. Global Const dbgAutomatic = 4 'Automatic. 'DBList and DBCombo Controls Constants 'Appearance Constants Global Const dblFlat = 0 'Flat appearance of DBList or DBCombo control. Global Const dbl3D = 1 'Three-dimensional appearance of DBList or DBCombo control. 'Area Constants (DBCombo only) Global Const dbcAreaButton = 0 'Returns the location of the DBCombo control's button when a Click or Double-Click event occurs there. Global Const dbcAreaEdit = 1 'Returns the location of the DBCombo control's text box when a Click or Double-Click event occurs there. Global Const dbcAreaList = 2 'Returns the location of the DBCombo control's list box when a Click or Double-Click event occurs there. 'Match Entry Constants Global Const dblBasicMatching = 0 'Basic matching. Global Const dblExtendedMatching = 1 'Extended matching. 'MousePointer Constants Global Const dblDefault = 0 '(Default) Shape determined by the object. Global Const dblArrow = 1 'Arrow. Global Const dblCross = 2 'Cross (cross-hair pointer). Global Const dblIBeam = 3 'I-Beam. Global Const dblIcon = 4 'Icon (small square within a square). Global Const dblSize = 5 'Size (four-pointed arrow pointing north, south, east, and west). Global Const dblSizeNESW = 6 'Size NE SW (double arrow pointing northeast and southwest). Global Const dblSizeNS = 7 'Size N S (double arrow pointing north and south). Global Const dblSizeNWSE = 8 'Size NW SE (double arrow pointing northwest and southeast). Global Const dblSizeEW = 9 'Size E W (double arrow pointing east and west). Global Const dblUpArrow = 10 'Up Arrow. Global Const dblHourglass = 11 'Hourglass (wait). Global Const dblNoDrop = 12 'No Drop. Global Const dblArrowHourglass = 13 'Arrow and hourglass. Global Const dblArrowQuestion = 14 'Arrow and question mark. Global Const dblSizeAll = 15 'Size all (can be customized under Microsoft Windows NT 3.51) Global Const dblCustom = 99 'Custom icon specified by the MouseIcon property. 'Style Constants Global Const dblDropdownCombo = 0 'Drop-down Combo. Global Const dblSimpleCombo = 1 'Simple combo. Global Const dblDropdownList = 2 'Drop-down list. 'DDE Constants 'linkerr (LinkError Event) Global Const vbWrongFormat = 1 'Another application requested data in wrong format. Global Const vbDDESourceClosed = 6 'Destination application attempted to continue after source closed. Global Const vbTooManyLinks = 7 'All source links are in use. Global Const vbDataTransferFailed = 8 'Failure to update data in destination. 'LinkMode Property (Forms and Controls) Global Const vbLinkNone = 0 'None. Global Const vbLinkSource = 1 'Source (forms only). Global Const vbLinkAutomatic = 1 'Automatic (controls only). Global Const vbLinkManual = 2 'Manual (controls only). Global Const vbLinkNotify = 3 'Notify (controls only). 'LinkMode Property (Only for backward compatibility with Visual Basic version 1.0; use new constants instead). Global Const vbHot = 1 'Hot (controls only). Global Const vbServer = 1 'Server (forms only). Global Const vbCold = 2 'Cold (controls only). 'Drag-and-Drop Constants 'DragOver Event Global Const vbEnter = 0 'Source control dragged into target. Global Const vbLeave = 1 'Source control dragged out of target. Global Const vbOver = 2 'Source control dragged from one position in target to another. 'Drag Method (Controls) 'Global Const vbCancel = 0 'Cancel drag operation. Global Const vbBeginDrag = 1 'Begin dragging control. Global Const vbEndDrag = 2 'Drop control. 'DragMode Property Global Const vbManual = 0 'Manual. Global Const vbAutomatic = 1 'Automatic. 'Drawing Constants 'DrawMode Property Global Const vbBlackness = 1 'Black. Global Const vbNotMergePen = 2 'Not Merge pen. Global Const vbMaskNotPen = 3 'Mask Not pen. Global Const vbNotCopyPen = 4 'Not Copy pen. Global Const vbMaskPenNot = 5 'Mask pen Not. Global Const vbInvert = 6 'Invert. Global Const vbXorPen = 7 'Xor pen. Global Const vbNotMaskPen = 8 'Not Mask pen. Global Const vbMaskPen = 9 'Mask pen. Global Const vbNotXorPen = 10 'Not Xor pen. Global Const vbNop = 11 'No operation; output remains unchanged. Global Const vbMergeNotPen = 12 'Merge Not pen. Global Const vbCopyPen = 13 'Copy pen. Global Const vbMergePenNot = 14 'Merge pen Not. Global Const vbMergePen = 15 'Merge pen. Global Const vbWhiteness = 16 'White. 'DrawStyle Property Global Const vbSolid = 0 'Solid. Global Const vbDash = 1 'Dash. Global Const vbDot = 2 'Dot. Global Const vbDashDot = 3 'Dash-dot. Global Const vbDashDotDot = 4 'Dash-dot-dot. Global Const vbInvisible = 5 'Invisible. Global Const vbInsideSolid = 6 'Inside solid. ' 'Form Constants 'Show Parameters Global Const vbModal = 1 'Modal form. Global Const vbModeless = 0 'Modeless form. 'Arrange Method for MDI Forms Global Const vbCascade = 0 'Cascade all nonminimized MDI child forms. Global Const vbTileHorizontal = 1 'Horizontally tile all nonminimized MDI child forms. Global Const vbTileVertical = 2 'Vertically tile all nonminimized MDI child forms. Global Const vbArrangeIcons = 3 'Arrange icons for minimized MDI child forms. 'WindowState Property Global Const vbNormal = 0 'Normal. Global Const vbMinimized = 1 'Minimized. Global Const vbMaximized = 2 'Maximized. 'Graphics Constants 'FillStyle Property Global Const vbFSSolid = 0 'Solid. Global Const vbFSTransparent = 1 'Transparent. Global Const vbHorizontalLine = 2 'Horizontal line. Global Const vbVerticalLine = 3 'Vertical line. Global Const vbUpwardDiagonal = 4 'Upward diagonal. Global Const vbDownwardDiagonal = 5 'Downward diagonal. Global Const vbCross = 6 'Cross. Global Const vbDiagonalCross = 7 'Diagonal cross. 'ScaleMode Property Global Const vbUser = 0 'User. Global Const vbTwips = 1 'Twips. Global Const vbPoints = 2 'Points. Global Const vbPixels = 3 'Pixels. Global Const vbCharacters = 4 'Characters. Global Const vbInches = 5 'Inches. Global Const vbMillimeters = 6 'Millimeters. Global Const vbCentimeters = 7 'Centimeters. 'Grid Control Constants 'ColAlignment, FixedAlignment Properties Global Const grdAlignCenter = 2 'Center data in column. Global Const grdAlignLeft = 0 'Left-align data in column. Global Const grdAlignRight = 1 'Right-align data in column. 'FillStyle Property Global Const grdSingle = 0 'Changing Text property setting affects only active cell. Global Const grdRepeat = 1 'Changing Text property setting affects all selected cells. 'Help Constants Global Const cdlHelpContext = &H1 'Displays Help for a particular topic. Global Const cdlHelpQuit = &H2 'Notifies the Help application that the specified Help file is no longer in use. Global Const cdlHelpIndex = &H3 'Displays the index of the specified Help file. Global Const cdlHelpContents = &H3 'Displays the contents topic in the current Help file. Global Const cdlHelpHelpOnHelp = &H4 'Displays Help for using the Help application itself. Global Const cdlHelpSetIndex = &H5 'Sets the current index for multi-index Help. Global Const cdlHelpSetContents = &H5 'Designates a specific topic as the contents topic. Global Const cdlHelpContextPopup = &H8 'Displays a topic identified by a context number. Global Const cdlHelpForceFile = &H9 'Creates a Help file that displays text in only one font. Global Const cdlHelpKey = &H101 'Displays Help for a particular keyword. Global Const cdlHelpCommandHelp = &H102 'Displays Help for a particular command. Global Const cdlHelpPartialKey = &H105 'Calls the search engine in Windows Help. 'Key Code Constants 'Key Codes Global Const vbKeyLButton = &H1 'Left mouse button. Global Const vbKeyRButton = &H2 'Right mouse button. Global Const vbKeyCancel = &H3 'CANCEL key. Global Const vbKeyMButton = &H4 'Middle mouse button. Global Const vbKeyBack = &H8 'BACKSPACE key. Global Const vbKeyTab = &H9 'TAB key. Global Const vbKeyClear = &HC 'CLEAR key. Global Const vbKeyReturn = &HD 'ENTER key. Global Const vbKeyShift = &H10 'SHIFT key. Global Const vbKeyControl = &H11 'CTRL key. Global Const vbKeyMenu = &H12 'MENU key. Global Const vbKeyPause = &H13 'PAUSE key. Global Const vbKeyCapital = &H14 'CAPS LOCK key. Global Const vbKeyEscape = &H1B 'ESC key. Global Const vbKeySpace = &H20 'SPACEBAR key. Global Const vbKeyPageUp = &H21 'PAGE UP key. Global Const vbKeyPageDown = &H22 'PAGE DOWN key. Global Const vbKeyEnd = &H23 'END key. Global Const vbKeyHome = &H24 'HOME key. Global Const vbKeyLeft = &H25 'LEFT ARROW key. Global Const vbKeyUp = &H26 'UP ARROW key. Global Const vbKeyRight = &H27 'RIGHT ARROW key. Global Const vbKeyDown = &H28 'DOWN ARROW key. Global Const vbKeySelect = &H29 'SELECT key. Global Const vbKeyPrint = &H2A 'PRINT SCREEN key. Global Const vbKeyExecute = &H2B 'EXECUTE key. Global Const vbKeySnapshot = &H2C 'SNAPSHOT key. Global Const vbKeyInsert = &H2D 'INS key. Global Const vbKeyDelete = &H2E 'DEL key. Global Const vbKeyHelp = &H2F 'HELP key. Global Const vbKeyNumlock = &H90 'NUM LOCK key. 'KeyA Through KeyZ Are the Same as Their ASCII Equivalents: 'A' Through 'Z' Global Const vbKeyA = 65 'A key. Global Const vbKeyB = 66 'B key. Global Const vbKeyC = 67 'C key. Global Const vbKeyD = 68 'D key. Global Const vbKeyE = 69 'E key. Global Const vbKeyF = 70 'F key. Global Const vbKeyG = 71 'G key. Global Const vbKeyH = 72 'H key. Global Const vbKeyI = 73 'I key. Global Const vbKeyJ = 74 'J key. Global Const vbKeyK = 75 'K key. Global Const vbKeyL = 76 'L key. Global Const vbKeyM = 77 'M key. Global Const vbKeyN = 78 'N key. Global Const vbKeyO = 79 'O key. Global Const vbKeyP = 80 'P key. Global Const vbKeyQ = 81 'Q key. Global Const vbKeyR = 82 'R key. Global Const vbKeyS = 83 'S key. Global Const vbKeyT = 84 'T key. Global Const vbKeyU = 85 'U key. Global Const vbKeyV = 86 'V key. Global Const vbKeyW = 87 'W key. Global Const vbKeyX = 88 'X key. Global Const vbKeyY = 89 'Y key. Global Const vbKeyZ = 90 'Z key. 'Key0 Through Key9 Are the Same as Their ASCII Equivalents: '0' Through '9' Global Const vbKey0 = 48 '0 key. Global Const vbKey1 = 49 '1 key. Global Const vbKey2 = 50 '2 key. Global Const vbKey3 = 51 '3 key. Global Const vbKey4 = 52 '4 key. Global Const vbKey5 = 53 '5 key. Global Const vbKey6 = 54 '6 key. Global Const vbKey7 = 55 '7 key. Global Const vbKey8 = 56 '8 key. Global Const vbKey9 = 57 '9 key. 'Keys on the Numeric Keypad Global Const vbKeyNumpad0 = &H60 '0 key. Global Const vbKeyNumpad1 = &H61 '1 key. Global Const vbKeyNumpad2 = &H62 '2 key. Global Const vbKeyNumpad3 = &H63 '3 key. Global Const vbKeyNumpad4 = &H64 '4 key. Global Const vbKeyNumpad5 = &H65 '5 key. Global Const vbKeyNumpad6 = &H66 '6 key. Global Const vbKeyNumpad7 = &H67 '7 key. Global Const vbKeyNumpad8 = &H68 '8 key. Global Const vbKeyNumpad9 = &H69 '9 key. Global Const vbKeyMultiply = &H6A 'MULTIPLICATION SIGN (*) key. Global Const vbKeyAdd = &H6B 'PLUS SIGN (+) key. Global Const vbKeySeparator = &H6C 'ENTER key. Global Const vbKeySubtract = &H6D 'MINUS SIGN (-) key. Global Const vbKeyDecimal = &H6E 'DECIMAL POINT(.) key. Global Const vbKeyDivide = &H6F 'DIVISION SIGN (/) key. 'Function Keys Global Const vbKeyF1 = &H70 'F1 key. Global Const vbKeyF2 = &H71 'F2 key. Global Const vbKeyF3 = &H72 'F3 key. Global Const vbKeyF4 = &H73 'F4 key. Global Const vbKeyF5 = &H74 'F5 key. Global Const vbKeyF6 = &H75 'F6 key. Global Const vbKeyF7 = &H76 'F7 key. Global Const vbKeyF8 = &H77 'F8 key. Global Const vbKeyF9 = &H78 'F9 key. Global Const vbKeyF10 = &H79 'F10 key. Global Const vbKeyF11 = &H7A 'F11 key. Global Const vbKeyF12 = &H7B 'F12 key. Global Const vbKeyF13 = &H7C 'F13 key. Global Const vbKeyF14 = &H7D 'F14 key. Global Const vbKeyF15 = &H7E 'F15 key. Global Const vbKeyF16 = &H7F 'F16 key. 'Menu Accelerator Constants Global Const vbMenuAccelCtrlA = 1 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlB = 2 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlC = 3 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlD = 4 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlE = 5 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF = 6 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlG = 7 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlH = 8 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlI = 9 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlJ = 10 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlK = 11 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlL = 12 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlM = 13 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlN = 14 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlO = 15 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlP = 16 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlQ = 17 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlR = 18 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlS = 19 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlT = 20 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlU = 21 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlV = 22 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlW = 23 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlX = 24 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlY = 25 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlZ = 26 'User-defined shortcut keystrokes. Global Const vbMenuAccelF1 = 27 'User-defined shortcut keystrokes. Global Const vbMenuAccelF2 = 28 'User-defined shortcut keystrokes. Global Const vbMenuAccelF3 = 29 'User-defined shortcut keystrokes. Global Const vbMenuAccelF4 = 30 'User-defined shortcut keystrokes. Global Const vbMenuAccelF5 = 31 'User-defined shortcut keystrokes. Global Const vbMenuAccelF6 = 32 'User-defined shortcut keystrokes. Global Const vbMenuAccelF7 = 33 'User-defined shortcut keystrokes. Global Const vbMenuAccelF8 = 34 'User-defined shortcut keystrokes. Global Const vbMenuAccelF9 = 35 'User-defined shortcut keystrokes. Global Const vbMenuAccelF11 = 36 'User-defined shortcut keystrokes. Global Const vbMenuAccelF12 = 37 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF1 = 38 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF2 = 39 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF3 = 40 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF4 = 41 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF5 = 42 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF6 = 43 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF7 = 44 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF8 = 45 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF9 = 46 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF11 = 47 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlF12 = 48 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF1 = 49 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF2 = 50 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF3 = 51 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF4 = 52 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF5 = 53 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF6 = 54 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF7 = 55 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF8 = 56 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF9 = 57 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF11 = 58 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftF12 = 59 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF1 = 60 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF2 = 61 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF3 = 62 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF4 = 63 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF5 = 64 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF6 = 65 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF7 = 66 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF8 = 67 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF9 = 68 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF11 = 69 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftCtrlF12 = 70 'User-defined shortcut keystrokes. Global Const vbMenuAccelCtrlIns = 71 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftIns = 72 'User-defined shortcut keystrokes. Global Const vbMenuAccelDel = 73 'User-defined shortcut keystrokes. Global Const vbMenuAccelShiftDel = 74 'User-defined shortcut keystrokes. Global Const vbMenuAccelAltBksp = 75 'User-defined shortcut keystrokes. 'Menu Control Constants 'PopupMenu Method Alignment Global Const vbPopupMenuLeftAlign = 0 'Pop-up menu left-aligned. Global Const vbPopupMenuCenterAlign = 4 'Pop-up menu centered. Global Const vbPopupMenuRightAlign = 8 'Pop-up menu right-aligned. 'PopupMenu Mouse Button Recognition Global Const vbPopupMenuLeftButton = 0 'Pop-up menu recognizes left mouse button only. Global Const vbPopupMenuRightButton = 2 'Pop-up menu recognizes right and left mouse buttons. 'Miscellaneous Constants 'ZOrder Method Global Const vbBringToFront = 0 'Bring to front. Global Const vbSendToBack = 1 'Send to back. 'QueryUnload Method Global Const vbAppWindows = 2 'Current Windows session ending. Global Const vbFormMDIForm = 4 'MDI child form is closing because the MDI form is closing. Global Const vbFormCode = 1 'Unload method invoked from code. Global Const vbFormControlMenu = 0 'User has chosen Close command from the Control-menu box on a form. Global Const vbAppTaskManager = 3 'Windows Task Manager is closing the application. 'Shift Parameter Masks Global Const vbShiftMask = 1 'SHIFT key bit mask. Global Const vbCtrlMask = 2 'CTRL key bit mask. Global Const vbAltMask = 4 'ALT key bit mask. 'Button Parameter Masks Global Const vbLeftButton = 1 'Left mouse button. Global Const vbRightButton = 2 'Right mouse button. Global Const vbMiddleButton = 4 'Middle mouse button. 'Application Start Mode Global Const vbSModeStandalone = 0 'Stand-alone application. Global Const vbSModeAutomation = 1 'OLE automation server. 'LoadResPicture Method Global Const vbResBitmap = 0 'Bitmap resource. Global Const vbResIcon = 1 'Icon resource. Global Const vbResCursor = 2 'Cursor resource. 'Check Value Global Const vbUnchecked = 0 'Unchecked. Global Const vbChecked = 1 'Checked. Global Const vbGrayed = 2 'Grayed. 'Mouse Pointer Constants Global Const vbDefault = 0 'Default. Global Const vbArrow = 1 'Arrow. Global Const vbCrosshair = 2 'Cross. Global Const vbIbeam = 3 'I beam. Global Const vbIconPointer = 4 'Icon. Global Const vbSizePointer = 5 'Size. Global Const vbSizeNESW = 6 'Size NE, SW. Global Const vbSizeNS = 7 'Size N, S. Global Const vbSizeNWSE = 8 'Size NW, SE. Global Const vbSizeWE = 9 'Size W, E. Global Const vbUpArrow = 10 'Up arrow. Global Const vbHourglass = 11 'Hourglass. Global Const vbNoDrop = 12 'No drop. Global Const vbArrowHourglass = 13 'Arrow and hourglass. (Only available in 32-bit Visual Basic 4.0.) Global Const vbArrowQuestion = 14 'Arrow and question mark. (Only available in 32-bit Visual Basic 4.0.) Global Const vbSizeAll = 15 'Size all. (Only available in 32-bit Visual Basic 4.0.) Global Const vbCustom = 99 'Custom icon specified by the MouseIcon property. 'OLE Container Control Constants 'OLEType Property Global Const vbOLELinked = 0 'OLE container control contains a linked object. Global Const vbOLEEmbedded = 1 'OLE container control contains an embedded object. Global Const vbOLENone = 3 'OLE container control doesn't contain an object. 'OLETypeAllowed Property Global Const vbOLEEither = 2 'OLE container control can contain either a linked or an embedded object. 'UpdateOptions Property Global Const vbOLEAutomatic = 0 'Object is updated each time the linked data changes. Global Const vbOLEFrozen = 1 'Object is updated whenever the user saves the linked document from within the application in which it was created. Global Const vbOLEManual = 2 'Object is updated only when the Action property is set to 6 (Update). 'AutoActivate Property Global Const vbOLEActivateManual = 0 'OLE object isn't automatically activated. Global Const vbOLEActivateGetFocus = 1 'Object is activated when the OLE container control gets the focus. Global Const vbOLEActivateDoubleclick = 2 'Object is activated when the OLE container control is double-clicked. Global Const vbOLEActivateAuto = 3 'Object is activated based on the object's default method of activation. 'SizeMode Property Global Const vbOLESizeClip = 0 'Object's image is clipped by the OLE container control's borders. Global Const vbOLESizeStretch = 1 'Object's image is sized to fill the OLE container control. Global Const vbOLESizeAutoSize = 2 'OLE container control is automatically resized to display the entire object. Global Const vbOLESizeZoom = 3 'Object's image is stretched but in proportion. 'DisplayType Property Global Const vbOLEDisplayContent = 0 'Object's data is displayed in the OLE container control. Global Const vbOLEDisplayIcon = 1 'Object's icon is displayed in the OLE container control. 'Updated Event Constants Global Const vbOLEChanged = 0 'Object's data has changed. Global Const vbOLESaved = 1 'Object's data has been saved by the application that created the object. Global Const vbOLEClosed = 2 'Application file containing the linked object's data has been closed. Global Const vbOLERenamed = 3 'Application file containing the linked object's data has been renamed. 'Special Verb Values Global Const vbOLEPrimary = 0 'Default action for the object. Global Const vbOLEShow = -1 'Activates the object for editing. Global Const vbOLEOpen = -2 'Opens the object in a separate application window. Global Const vbOLEHide = -3 'For embedded objects, hides the application that created the object. Global Const vbOLEInPlaceUIActivate = -4 'All UI's associated with the object are visible and ready for use. Global Const vbOLEInPlaceActivate = -5 'Object is ready for the user to click inside it and start working with it. Global Const vbOLEDiscardUndoState = -6 'For discarding all record of changes that the object's application can undo. 'Verb Flag Bit Masks Global Const vbOLEFlagEnabled = &H0 'Enabled menu item. Global Const vbOLEFlagGrayed = &H1 'Grayed menu item. Global Const vbOLEFlagDisabled = &H2 'Disabled menu item. Global Const vbOLEFlagChecked = &H8 'Checked menu item. Global Const vbOLEFlagSeparator = &H800 'Separator bar in menu item list. Global Const vbOLEMiscFlagMemStorage = &H1 'Causes control to use memory to store the object while it's loaded. Global Const vbOLEMiscFlagDisableInPlace = &H2 'Forces OLE container control to activate objects in a separate window. 'Picture Object Constants Global Const vbPicTypeBitmap = 1 'Bitmap type of Picture object. Global Const vbPicTypeMetafile = 2 'Metafile type of Picture object. Global Const vbPicTypeIcon = 3 'Icon type of Picture object. 'Printer Object Constants 'Printer Color Mode Global Const vbPRCMMonochrome = 1 'Monochrome output. Global Const vbPRCMColor = 2 'Color output. 'Duplex Printing Global Const vbPRDPSimplex = 1 'Single-sided printing. Global Const vbPRDPHorizontal = 2 'Double-sided horizontal printing. Global Const vbPRDPVertical = 3 'Double-sided vertical printing. 'Printer Orientation Global Const vbPRORPortrait = 1 'Documents print with the top at the narrow side of the paper. Global Const vbPRORLandscape = 2 'Documents print with the top at the wide side of the paper. 'Print Quality Global Const vbPRPQDraft = -1 'Draft print quality. Global Const vbPRPQLow = -2 'Low print quality. Global Const vbPRPQMedium = -3 'Medium print quality. Global Const vbPRPQHigh = -4 'High print quality. 'PaperBin Property Global Const vbPRBNUpper = 1 'Use paper from the upper bin. Global Const vbPRBNLower = 2 'Use paper from the lower bin. Global Const vbPRBNMiddle = 3 'Use paper from the middle bin. Global Const vbPRBNManual = 4 'Wait for manual insertion of each sheet of paper. Global Const vbPRBNEnvelope = 5 'Use envelopes from the envelope feeder. Global Const vbPRBNEnvManual = 6 'Use envelopes from the envelope feeder, but wait for manual insertion. Global Const vbPRBNAuto = 7 '(Default) Use paper from the current default bin. Global Const vbPRBNTractor = 8 'Use paper fed from the tractor feeder. Global Const vbPRBNSmallFmt = 9 'Use paper from the small paper feeder. Global Const vbPRBNLargeFmt = 10 'Use paper from the large paper bin. Global Const vbPRBNLargeCapacity = 11 'Use paper from the large capacity feeder. Global Const vbPRBNCassette = 14 'Use paper from the attached cassette cartridge. 'PaperSize Property Global Const vbPRPSLetter = 1 'Letter, 8 1/2 x 11 in. Global Const vbPRPSLetterSmall = 2 '+A611Letter Small, 8 1/2 x 11 in. Global Const vbPRPSTabloid = 3 'Tabloid, 11 x 17 in. Global Const vbPRPSLedger = 4 'Ledger, 17 x 11 in. Global Const vbPRPSLegal = 5 'Legal, 8 1/2 x 14 in. Global Const vbPRPSStatement = 6 'Statement, 5 1/2 x 8 1/2 in. Global Const vbPRPSExecutive = 7 'Executive, 7 1/2 x 10 1/2 in. Global Const vbPRPSA3 = 8 'A3, 297 x 420 mm. Global Const vbPRPSA4 = 9 'A4, 210 x 297 mm. Global Const vbPRPSA4Small = 10 'A4 Small, 210 x 297 mm. Global Const vbPRPSA5 = 11 'A5, 148 x 210 mm. Global Const vbPRPSB4 = 12 'B4, 250 x 354 mm. Global Const vbPRPSB5 = 13 'B5, 182 x 257 mm. Global Const vbPRPSFolio = 14 'Folio, 8 1/2 x 13 in. Global Const vbPRPSQuarto = 15 'Quarto, 215 x 275 mm. Global Const vbPRPS10x14 = 16 '10 x 14 in. Global Const vbPRPS11x17 = 17 '11 x 17 in. Global Const vbPRPSNote = 18 'Note, 8 1/2 x 11 in. Global Const vbPRPSEnv9 = 19 'Envelope #9, 3 7/8 x 8 7/8 in. Global Const vbPRPSEnv10 = 20 'Envelope #10, 4 1/8 x 9 1/2 in. Global Const vbPRPSEnv11 = 21 'Envelope #11, 4 1/2 x 10 3/8 in. Global Const vbPRPSEnv12 = 22 'Envelope #12, 4 1/2 x 11 in. Global Const vbPRPSEnv14 = 23 'Envelope #14, 5 x 11 1/2 in. Global Const vbPRPSCSheet = 24 'C size sheet. Global Const vbPRPSDSheet = 25 'D size sheet. Global Const vbPRPSESheet = 26 'E size sheet. Global Const vbPRPSEnvDL = 27 'Envelope DL, 110 x 220 mm. Global Const vbPRPSEnvC3 = 29 'Envelope C3, 324 x 458 mm. Global Const vbPRPSEnvC4 = 30 'Envelope C4, 229 x 324 mm. Global Const vbPRPSEnvC5 = 28 'Envelope C5, 162 x 229 mm. Global Const vbPRPSEnvC6 = 31 'Envelope C6, 114 x 162 mm. Global Const vbPRPSEnvC65 = 32 'Envelope C65, 114 x 229 mm. Global Const vbPRPSEnvB4 = 33 'Envelope B4, 250 x 353 mm. Global Const vbPRPSEnvB5 = 34 'Envelope B5, 176 x 250 mm. Global Const vbPRPSEnvB6 = 35 'Envelope B6, 176 x 125 mm. Global Const vbPRPSEnvItaly = 36 'Envelope, 110 x 230 mm. Global Const vbPRPSEnvMonarch = 37 'Envelope Monarch, 3 7/8 x 7 1/2 in. Global Const vbPRPSEnvPersonal = 38 'Envelope, 3 5/8 x 6 1/2 in. Global Const vbPRPSFanfoldUS = 39 'U.S. Standard Fanfold, 14 7/8 x 11 in. Global Const vbPRPSFanfoldStdGerman = 40 'German Standard Fanfold, 8 1/2 x 12 in. Global Const vbPRPSFanfoldLglGerman = 41 'German Legal Fanfold, 8 1/2 x 13 in. Global Const vbPRPSUser = 256 'User-defined. 'RasterOp Constants Global Const vbDstInvert = &H550009 'Inverts the destination bitmap. Global Const vbMergeCopy = &HC000CA 'Combines the pattern and the source bitmap. Global Const vbMergePaint = &HBB0226 'Combines the inverted source bitmap with the destination bitmap by using Or. Global Const vbNotSrcCopy = &H330008 'Copies the inverted source bitmap to the destination. Global Const vbNotSrcErase = &H1100A6 'Inverts the result of combining the destination and source bitmaps by using Or. Global Const vbPatCopy = &HF00021 'Copies the pattern to the destination bitmap. Global Const vbPatInvert = &H5A0049 'Combines the destination bitmap with the pattern by using Xor. Global Const vbPatPaint = &HFB0A09 'Combines the inverted source bitmap with the pattern by using Or. Combines the result of this operation with the destination bitmap by using Or. Global Const vbSrcAnd = &H8800C6 'Combines pixels of the destination and source bitmaps by using And. Global Const vbSrcCopy = &HCC0020 'Copies the source bitmap to the destination bitmap. Global Const vbSrcErase = &H440328 'Inverts the destination bitmap and combines the result with the source bitmap by using And. Global Const vbSrcInvert = &H660046 'Combines pixels of the destination and source bitmaps by using Xor. Global Const vbSrcPaint = &HEE0086 'Combines pixels of the destination and source bitmaps by using Or. 'Variant Type Constants Global Const vbVEmpty = 0 'Empty (uninitialized). Global Const vbVNull = 1 'Null (no valid data). Global Const vbVInteger = 2 'Integer data type. Global Const vbVLong = 3 'Long integer data type. Global Const vbVSingle = 4 'Single-precision floating-point data type. Global Const vbVDouble = 5 'Double-precision floating-point data type. Global Const vbVCurrency = 6 'Currency (scaled integer) data type. Global Const vbVDate = 7 'Date data type. Global Const vbVString = 8 'String data type. 'VBTranslateColor/OLETranslateColor Constants Global Const vb3DFace = &H8000000F 'Dark shadow color for 3-D display elements. Global Const vbMsgBox = &H80000017 'Background color for message boxes and system dialog boxes. Global Const vbMsgBoxText = &H80000018 'Color of text displayed in message boxes and system dialog boxes. Global Const vb3DShadow = &H80000010 'Color of automatic window shadows. 'Data Access Object Constants 'Recordset.Type Property Constants Global Const dbOpenTable = 1 'Open table-type Recordset. Global Const dbOpenDynaset = 2 'Open dynaset-type Recordset. Global Const dbOpenSnapshot = 4 'Open snapshot-type Recordset. 'OpenRecordset Method options Argument Constants Global Const dbDenyWrite = 1 'Other users can't change dynaset records. Global Const dbDenyRead = 2 'Other users can't read dynaset records. Global Const dbReadOnly = 4 'Open dynaset as read-only. Global Const dbAppendOnly = 8 'You can add new records to the dynaset, but you can't read existing records. Global Const dbInconsistent = 16 'Updates apply to all dynaset fields, even if other records affected. Global Const dbConsistent = 32 'Updates apply only to those fields that will not affect other records in the dynaset. Global Const dbSQLPassThrough = 64 'Sends an SQL statement to an ODBC database. Global Const dbFailOnError = 128 'Roll back changes if error occurs. Global Const dbForwardOnly = 256 'Create forward-only scrolling snapshot-type Recordset. Global Const dbOptionINIPath = 1 'Set application initialization (.INI) filename and path . 'Attributes Property Constants 'Field.Attributes Property Global Const dbFixedField = 1 'Field size fixed (default for Numeric fields). Global Const dbVariableField = 2 'Field size variable (Text fields only). Global Const dbAutoIncrField = 16 'New record field value incremented to unique Long integer (counter type). Global Const dbUpdatableField = 32 'Field is updatable (read/write). Global Const dbDescending = 1 'Field sorted in descending order. 'Type Property Constants (Field.Type, Parameter.Type, and Property.Type Properties) Global Const dbBoolean = 1 'Boolean (True/False) data. Global Const dbByte = 2 'Byte (8-bit) data . Global Const dbInteger = 3 'Integer data. Global Const dbLong = 4 'Long Integer data. Global Const dbCurrency = 5 'Currency data. Global Const dbSingle = 6 'Single-precision floating-point data. Global Const dbDouble = 7 'Double-precision floating-point data. Global Const dbDate = 8 'Date value data. Global Const dbText = 10 'Text data (variable width). Global Const dbLongBinary = 11 'Binary data (bitmap). Global Const dbMemo = 12 'Memo data (extended text). 'Relation.Attributes Property Constants Global Const dbRelationUnique = 1 'One-to-one relationship. Global Const dbRelationDontEnforce = 2 'Relationship not enforced (no referential integrity). Global Const dbRelationInherited = 4 'Relationship exists in a noncurrent database containing the two attached tables. Global Const dbRelationUpdateCascade = 256 'Updates cascade. Global Const dbRelationDeleteCascade = 4096 'Deletions cascade. Global Const dbRelationLeft = 16777216 'Relationship is a left join. Global Const dbRelationRight = 33554432 'Relationship is a right join. 'TableDef.Attributes Property Constants Global Const dbAttachExclusive = 65536 'Attached Microsoft Jet database engine table opened for exclusive use. Global Const dbAttachSavePWD = 131072 'Save user ID and password for attached table. Global Const dbSystemObject = 2147483650# 'System table. Global Const dbHiddenObject = 1 'Hidden table (for temporary use). Global Const dbTable = 1 'Table object. Global Const dbQueryDef = 5 'QueryDef object. Global Const dbAttachedTable = 1073741824 'Attached non-ODBC database table. Global Const dbAttachedODBC = 536870912 'Attached ODBC database table. 'QueryDef.Type Property Constants Global Const dbQSelect = 0 'SELECT query. Global Const dbQAction = 240 'Action query. Global Const dbQCrosstab = 16 'Crosstab query. Global Const dbQDelete = 32 'DELETE query. Global Const dbQUpdate = 48 'UPDATE query. Global Const dbQAppend = 64 'APPEND query. Global Const dbQMakeTable = 80 'Make-table query. Global Const dbQDDL = 96 'Data definition language (DDL) query. Global Const dbQSQLPassThrough = 112 'SQL pass-through query. Global Const dbQSetOperation = 128 'Set operation query. Global Const dbQSPTBulk = 144 'Bulk operation query. 'CompactDatabase, CreateDatabase Methods options Argument Constants Global Const dbVersion10 = 1 'Microsoft Jet database engine version 1.0. Global Const dbEncrypt = 2 'Encrypt database. Global Const dbDecrypt = 4 'Decrypt database while compacting. Global Const dbVersion11 = 8 'Microsoft Jet database engine version 1.1. Global Const dbVersion20 = 16 'Microsoft Jet database engine version 2.0/2.5. Global Const dbVersion30 = 32 'Microsoft Jet database engine version 3.0. 'Container.Permissions Property Global Const dbSecNoAccess = 0 'No access to the object. Global Const dbSecFullAccess = 1048575 'Has full access to the object. Global Const dbSecDelete = 65536 'Can delete the object. Global Const dbSecReadSec = 131072 'Can read the object's security-related information. Global Const dbSecWriteSec = 262144 'Can alter access permissions. Global Const dbSecWriteOwner = 524288 'Can change the Owner property setting. 'Databases Container.Permissions Property Constants ' Global Const dbSecDBCreate = 1 'Can create new databases (valid only on the databases Container object in the system database, typically SYSTEM.MDW). Global Const dbSecDBOpen = 2 'Can open the database. Global Const dbSecDBExclusive = 4 'Has exclusive access. 'Tables Container.Permissions Property Constants Global Const dbSecCreate = 1 'Create new tables (valid only with a Container object that represents a table). Global Const dbSecReadDef = 4 'Read the table definition, including column and index information. Global Const dbSecWriteDef = 8 'Modify or delete table definition, including column and index information. Global Const dbSecRetrieveData = 16 'Retrieve data from the document. Global Const dbSecInsertData = 32 'Add records. Global Const dbSecReplaceData = 64 'Modify records. Global Const dbSecDeleteData = 128 'Delete records. 'EditMode Property Constants Global Const dbEditNone = 0 'No editing operation in effect. Global Const dbEditInProgress = 1 'Edit method invoked. Global Const dbEditAdd = 2 'AddNew method invoked. 'CollatingOrder Property Constants ' Global Const dbSortArabic = 267 'Arabic collating order. Global Const dbSortCyrillic = 263 'Russian collating order. Global Const dbSortCzech = 264 'Czech collating order. Global Const dbSortDutch = 259 'Dutch collating order. Global Const dbSortGeneral = 256 'English, German, French, and Portuguese collating order. Global Const dbSortGreek = 269 'Greek collating order. Global Const dbSortHebrew = 268 'Hebrew collating order. Global Const dbSortHungarian = 265 'Hungarian collating order. Global Const dbSortIcelandic = 262 'Icelandic collating order. Global Const dbSortJapanese = 1041 'Japanese collating order. Global Const dbSortNeutral = 1024 'Neutral collating order. Global Const dbSortNorw = 261 'Norwegian and Danish collating order. Global Const dbSortPDXIntl = 4096 'Paradox international collating order. Global Const dbSortPDXNor = 4098 'Paradox Norwegian and Danish collating order. Global Const dbSortPDXSwe = 4097 'Paradox Swedish and Finnish collating order. Global Const dbSortPolish = 266 'Polish collating order. Global Const dbSortSpanish = 258 'Spanish collating order. Global Const dbSortSwedFin = 260 'Swedish and Finnish collating order. Global Const dbSortTurkish = 270 'Turkish collating order. Global Const dbSortUndefined = -1 'Collating order undefined or unknown. 'Idle Method Argument Constants Global Const dbFreeLocks = 1 'Free page locks. 'Synchronize Method ExchgType Argument Constants Global Const dbRepExportChanges = 1 'Synchronizes the target database replica with the current database. Global Const dbRepImportChanges = 2 'Synchronizes the current database with the target database replica. Global Const dbRepImpExpChanges = 4 'Bidirectionally synchronizes the current database with the target database replica. 'CreateReplica Method Options Argument Constants Global Const dbRepMakeReadOnly = 2 'The replicable elements of the newly-created database will not be modifiable. 'Date Constants Global Const vbUseSystem = 0 'Use NLS API setting. Global Const vbSunday = 1 'Sunday Global Const vbMonday = 2 'Monday Global Const vbTuesday = 3 'Tuesday Global Const vbWednesday = 4 'Wednesday Global Const vbThursday = 5 'Thursday Global Const vbFriday = 6 'Friday Global Const vbSaturday = 7 'Saturday Global Const vbFirstJan1 = 1 'Start with week in which January 1 occurs (default) Global Const vbFirstFourDays = 2 'Start with the first week that has at least four days in the new year. Global Const vbFirstFullWeek = 3 'Start with the first full week of the year. 'Dir, GetAttr, and SetAttr Constants 'Global Const vbNormal = 0 'Normal (default for Dir and SetAttr). Global Const vbReadOnly = 1 'Read-only. Global Const vbHidden = 2 'Hidden. Global Const vbSystem = 4 'System file. Global Const vbVolume = 8 'Volume label. Global Const vbDirectory = 16 'Directory. Global Const vbArchive = 32 'File has changed since last backup. 'IMEStatus Constants 'Japanese locale: Global Const vbIMENoOp = 0 'No IME installed. Global Const vbIMEOn = 1 'IME on. Global Const vbIMEOff = 2 'IME off. Global Const vbIMEDisable = 3 'IME disabled. Global Const vbIMEHiragana = 4 'Hiragana double-byte characters (DBC) Global Const vbIMEKatakanaDbl = 5 'Katakana DBC. Global Const vbIMEKatakanaSng = 6 'Katakana single-byte characters (SBC). Global Const vbIMEAlphaDbl = 7 'Alphanumeric DBC. Global Const vbIMEAlphaSng = 8 'Alphanumeric SBC. 'MsgBox Constants 'MsgBox Arguments Global Const vbOKOnly = 0 'OK button only (default). Global Const vbOKCancel = 1 'OK and Cancel buttons. Global Const vbAbortRetryIgnore = 2 'Abort, Retry, and Ignore buttons. Global Const vbYesNoCancel = 3 'Yes, No, and Cancel buttons. Global Const vbYesNo = 4 'Yes and No buttons. Global Const vbRetryCancel = 5 'Retry and Cancel buttons. Global Const vbCritical = 16 'Critical message. Global Const vbQuestion = 32 'Warning query. Global Const vbExclamation = 48 'Warning message. Global Const vbInformation = 64 'Information message. Global Const vbDefaultButton1 = 0 'First button is default (default). Global Const vbDefaultButton2 = 256 'Second button is default. Global Const vbDefaultButton3 = 512 'Third button is default. Global Const vbApplicationModal = 0 'Application modal message box (default). Global Const vbSystemModal = 4096 'System modal message box. 'MsgBox Return Values Global Const vbOK = 1 'OK button pressed. Global Const vbCancel = 2 'Cancel button pressed. Global Const vbAbort = 3 'Abort button pressed. Global Const vbRetry = 4 'Retry button pressed. Global Const vbIgnore = 5 'Ignore button pressed. Global Const vbYes = 6 'Yes button pressed. Global Const vbNo = 7 'No button pressed. 'Shell Constants Global Const vbHide = 0 'Window is hidden and focus is passed to the hidden window. Global Const vbNormalFocus = 1 'Window has focus and is restored to its original size and position. Global Const vbMinimizedFocus = 2 'Window is displayed as an icon with focus. Global Const vbMaximizedFocus = 3 'Window is maximized with focus. Global Const vbNormalNoFocus = 4 'Window is restored to its most recent size and position. The currently active window remains active. Global Const vbMinimizedNoFocus = 6 'Window is displayed as an icon. The currently active window remains active. 'StrConv Constants Global Const vbUpperCase = 1 'Uppercases the string. Global Const vbLowerCase = 2 'Lowercases the string. Global Const vbProperCase = 3 'Uppercases first letter of every word in string. Global Const vbWide = 4 'Converts narrow (single-byte) characters in string to wide (double-byte) characters. Global Const vbNarrow = 8 'Converts wide (double-byte) characters in string to narrow (single-byte) characters. Global Const vbKatakana = 16 'Converts Hiragana characters in string to Katakana characters. Global Const vbHiragana = 32 'Converts Katakana characters in string to Hiragana characters. Global Const vbUnicode = 64 'Converts the string to Unicode using the default code page of the system. Global Const vbFromUnicode = 128 'Converts the string from Unicode to the default code page of the system. 'VarType Constants Global Const vbEmpty = 0 'Uninitialized (default). Global Const vbNull = 1 'Contains no valid data. Global Const vbInteger = 2 'Integer. Global Const vbLong = 3 'Long integer. Global Const vbSingle = 4 'Single-precision floating-point number. Global Const vbDouble = 5 'Double-precision floating-point number. Global Const vbCurrency = 6 'Currency. Global Const vbDate = 7 'Date. Global Const vbString = 8 'String. Global Const vbObject = 9 'OLE Automation object. Global Const vbError = 10 'Error. Global Const vbBoolean = 11 'Boolean. Global Const vbVariant = 12 'Variant (used only for arrays of Variants). Global Const vbDataObject = 13 'Non-OLE Automation object. Global Const vbByte = 17 'Byte Global Const vbArray = 8192 'Array.